Votación General

Column

Votación General (%)

Votación por Género (%)

Column

Regiones con mayor participación

Comentarios

Comentarios con mayor número de “me gusta”

---
title: "Proyecto de Ley que Fija Ley Marco de Cambio Climático"
subtitle: "Reporte Congreso Virtual"
author: "Boletín: 13191-12"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed 
---


```{r setup, include=FALSE}
library(flexdashboard)
library(dplyr)
library(readr)
library(tidyverse)
library(knitr)
library(readxl)
library(janitor)
library(broom)
library(kableExtra)
library(forcats)
```

```{r read-excel, include = FALSE}
votos <- read_excel("VOTOS + COMENTARIOS Cambio Climático.xlsx", 
    sheet = "VOTO GENERAL")

coments <- read_excel("VOTOS + COMENTARIOS Cambio Climático.xlsx", 
    sheet = "COMENTARIOS")
```

```{r recode-gen, include = FALSE}
votos <- votos %>%
  mutate(genero = case_when (
    genero == "1" ~ "Masculino",
    genero == "2" ~ "Femenino",
    genero == "-" ~ "Abstención"
  ))
```

```{r recode-vote, include = FALSE}
votos <- votos %>%
  mutate(vote = case_when (
    vote == "0" ~ "A favor",
    vote == "1" ~ "En contra",
    vote == "2" ~ "Abstención"
  ))
```

```{r recode-region, include=FALSE}
votos <- votos %>%
  group_by(region) %>%
  mutate(region = case_when (
    region == "-" ~ "No responde",
    region == "Baden-Württemberg" ~ "Otra",
    region %in% c("Bío Bío", "Región del Biobío") ~ "Biobío",
    region %in% c("Coquimbo", "Región de Coquimbo") ~ "Coquimbo",
    region %in% c("Libertador General Bernardo O'Higgins", 
                  "Región del Libertador General Bernardo O´Higgins") ~ 
      "O’Higgins",
    region %in% c("Los Ríos", "Región de Los Ríos") ~ "Los Ríos",
    region %in% c("Maule", "Región del Maule") ~ "Maule", 
    region %in% c("Metropolitana de Santiago", 
                  "Región Metropolitana de Santiago") ~ "RM",
    region == "Región de Antofagasta" ~ "Antofagasta",
    region == "Región de Arica y Parinacota" ~ "Arica y Parinacota",
    region == "Región de Atacama" ~ "Atacama",
    region == "Región de Aysén del General Carlos Ibáñez del Campo" ~ "Aysén",
    region == "Región de La Araucanía" ~ "La Araucanía",
    region == "Región de Los Lagos" ~ "Los Lagos",
    region == "Región de Magallanes y de la Antártica Chilena" ~ 
      "Magallanes y Antártica Chilena",
    region == "Región de Ñuble" ~ "Ñuble",
    region %in% c("Región de Valparaíso", "Valparaíso") ~ "Valparaíso",
    region == "Tarapacá" ~ "Tarapacá"
  ))
```

```{r count-vote, include=FALSE}
suma_vote <- votos %>%
  group_by(vote) %>%  
  count(name = "sumavoto") %>%
  mutate(prop = ((sumavoto / nrow(votos))*100)) %>%
  mutate(prop_vote = round(prop))
```

```{r count-gen, include=FALSE}
suma_gen <- votos %>%
  group_by(genero) %>%
  count(name = "sumagenero") %>%
  mutate(prop = (sumagenero / nrow(votos))*100) %>%
  mutate(prop_gen = round(prop))
```

```{r count-region, include=FALSE}
suma_region <- votos %>%
  group_by(region) %>%
  count(name = "sumaregion", sort = TRUE)
```

Sidebar {.sidebar}
=======================================================================

### Congreso Virtual
Proyecto de ley, iniciado en mensaje de S.E. el Presidente de la República, que fija Ley Marco de Cambio Climático
__Resumen__
Este proyecto crea un marco jurídico para asignar responsabilidades específicas en la implementación de medidas de mitigación y adaptación al cambio climático. De esta forma, se busca que las políticas, planes y programas orientados al cambio climático trascienda al gobierno de turno. Se incluye como meta de mitigación, el 2050, para lograr la neutralidad de emisiones de gases invernadero (es decir, que se absorba la misma cantidad que se produce). Votación General ======================================================================= Column ----------------------------------------------------------------------- ### Votación General (%) ```{r viz-vote, echo=FALSE} ggplot(suma_vote, aes(x = "", y = prop_vote, fill = vote)) + geom_bar(stat="identity", width=2, color="white") + coord_polar("y", start=0, direction = -1) + theme_void() + theme(legend.position = "right") + guides(fill=guide_legend(title=NULL)) + theme(legend.text = element_text(size=20)) + geom_text(aes(y = prop_vote, label = prop_vote), color = "white", size=10, face="bold", position = position_stack(vjust = 0.4)) + scale_fill_manual(values=c("#33a02c", "#e31a1c", "#CCCCCC"), breaks=c("A favor", "En contra", "Abstención")) ``` ### Votación por Género (%) ```{r viz-gen1, echo=FALSE} ggplot(suma_gen, aes(x = "", y = prop_gen, fill = genero)) + geom_bar(stat="identity", width=2, color="white") + coord_polar("y", start=0) + theme_void() + theme(legend.position = "right") + theme(legend.text = element_text(size=20)) + guides(fill=guide_legend(title=NULL)) + geom_text(aes(y = prop_gen, label = prop_gen), color = "white", size=10, face="bold", position = position_stack(vjust = 0.5)) + scale_fill_manual(values=c("#cab2d6", "#ff7f00", "#CCCCCC"), breaks=c("Masculino", "Femenino", "Abstención")) ``` ```{r viz-gen2, echo=FALSE} ggplot(suma_gen, aes(x = "", y = sumagenero, fill = genero)) + geom_bar(stat="identity") + coord_flip() ``` Column ----------------------------------------------------------------------- ### Regiones con mayor participación ```{r viz-region, width = 5, height = 5} suma_region %>% mutate(region = fct_reorder(region, sumaregion)) %>% ggplot(aes(x = region, y = sumaregion)) + geom_bar(stat = "identity", fill = "#1f78b4") + coord_flip() + theme_classic() + labs(title ="", x = "", y = "") ``` Comentarios ======================================================================= ### Comentarios con mayor número de "me gusta"